home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00065_Script_SCRIPT_MENU_EQUERRE_JAUNE < prev    next >
Text File  |  2002-09-19  |  1KB  |  58 lines
  1. -- scripts menu Θquerre jaune
  2.  
  3. global validMHG, rollMessHG, menuMsg, fermeMenuHG, menuFermeHG, pisteMenuHG, menuOuvert, gFlag_hideWindows
  4. -- validMHG : liste donnant les items du menu sΘlectionnables
  5. -- rollMessHG : indique sur quel item du menu a lieu le rollOver
  6. -- menuMsg : message renvoyΘ par le menu α sa fermeture
  7.  
  8.  
  9. -- la souris quitte le menu sans clic
  10. on mouseLeave
  11.   if menuMsg<>empty then
  12.     masqueMenu
  13.   end if
  14.   masqueMenu
  15. end mouseLeave
  16.  
  17. -- clic dans menu
  18. on mouseUp
  19.   if rollMessHG <> "nul" then
  20.     menuMsg = rollMessHG
  21.     masqueMenu
  22.   else
  23.     menuMsg = empty
  24.   end if
  25.   if voidP(menuMsg)<>1 then
  26.     gestMenus
  27.   end if
  28.   menuMsg = empty
  29. end mouseUp
  30.  
  31. -- dissimulation du menu
  32. on masqueMenu
  33.   show_zevideo
  34.   if gFlag_hideWindows = 2 then resume_window()
  35.   cursor -1
  36.   fermeMenuHG=1
  37.   repeat while menuFermeHG<>1
  38.     temporise(0.01)
  39.     updateStage
  40.   end repeat
  41.   masquerPistes the currentSpriteNum
  42.   sprite(pisteMenuHG).memberNum = member("pointPourGlisserSur").number
  43.   menuOuvert = 0
  44.   put "    Fermeture Θquerre jaune"
  45. end masqueMenu
  46.  
  47. -- repΘrage de la piste du menu Θquerre jaune
  48. on beginSprite
  49.   pisteMenuHG = the currentSpriteNum
  50.   masquerPistes pisteMenuHG
  51. end
  52.  
  53. -- fermeture du menu si restΘ ouvert
  54. on exitFrame
  55.   if menuFermeHG=1 and menuOuvert="HG" then
  56.     masqueMenu
  57.   end if
  58. end